10 REM SANTA'S BUSY DAY
20 REM GEORGE TREPAL
30 REM 2650 ALTURAS ROAD
40 REM BARTOW, FL  33830
50 PRINT"[147]  DO YOU WANT AN <E>ASY OR A <R>EGULAR"
55 PRINT"  GAME?"
60 GETA$: IFA$<>"" THEN 60
70 GETA$:IF A$="" THEN 70
80 IF A$="E" THEN POKE 828,1
90 C=896: CT=44: POKE53280,0
100 READ D$: L=LEN(D$): PRINT "[147]"SPC(8)"COUNTING DOWN TO ZERO  ";
105 CT=CT-1: PRINT CT: POKE 53281,CT
110 FOR J=1TOL STEP2: M$=MID$(D$,J,2)
120 H$=LEFT$(M$,1): L$=RIGHT$(M$,1)
130 H=ASC(H$)-48: IFH>10 THEN H=H-7
140 L=ASC(L$)-48: IFL>10 THEN L=L-7
150 P=H*16+L:IF P>255 THEN 200
155 POKE C,P: C=C+1
160 NEXT:GOTO100
200 IF C<1000 THEN C=49152: GOTO 100
210 SYS49160
896 DATA 00150000AA8002AAA009555806AAA40A596806FBE405EB94055554016A500159
928 DATA 500255600A95A82AA6AA2AAAAA29AA9A19AA9915AA95156A55055554015550ZZ
49152 DATA 0100D8FFFFFF2800A9008D49038D4C0385FBA90C85FCA000A92091FBC8D0FBE6
49184 DATA FCA5FCC99FD0F1A9568D4303A95185FBA92885FDA91285FC85FEA99320D2FFA2
49216 DATA 00A000AD430391FDC8C027D0F918A5FD692885FD9002E6FEE8E051D0E4A000A9
49248 DATA 0491FBA9FF8D0FD4A9808D12D4AD1BD4290385ADAA0AA818B900C065FB85AAB9
49280 DATA 01C065FC85AB18B900C065AA85FDB901C065AB85FEA000B1FDCD4303D0128A91
49312 DATA FDA92091AAA5FD85FBA5FE85FC4C63C0E88A2903C5ADD0BCB1FBAAA92091FBE0
49344 DATA 04F01A8A0AA8A20238A5FBF900C085FBA5FCF901C085FCCAD0EE4C63C0A90F8D
49376 DATA 48038502A9068D20D08D21D020F2C04C10C1A502A0009900D89900D99900DA99
49408 DATA 00DBC8D0F1A228A90D9DC0DBCAD0FA60AD43038D4F128DCF1EA9208D76128D50
49440 DATA 128D801E8DA61EA90085FB8D3F03A9FF85FDA91285FCA92385FEA000A20018A5
49472 DATA FD690185FDA5FE690085FEB1FB91FD18A5FD697885FDA5FE690085FEB1FB91FD
49504 DATA 18A5FD697885FDA5FE690085FEB1FB91FD38A5FDE9F085FDA5FEE90085FEE8E0
49536 DATA 03D0BBEE3F03AD3F03C928D01218A5FD69F085FDA5FE690085FEA9008D3F0318
49568 DATA A5FB690185FBA5FC690085FCA5FCC920D08AA5FBC900D084A9A08D4203A9FF8D
49600 DATA 0FD4A9808D1BD4A2D2A000AD1BD4C92730F9C99010F585FCAD1BD485FBB1FBCD
49632 DATA 4303F0E7AD420391FBCAD0DFAD4203C953F00AA9538D4203A2024CCBC1A204A9
49664 DATA 309DC107CAD0FA200DC24C1DC2A220A95B9DC707CAD0FAA9018D4F0360A9988D
49696 DATA 4403A9218D4503A9008D4603A90F8D18D4A9018D1CD08D15D0A9B08D00D0A98C
49728 DATA 8D01D0A9028D27D0A90E8DF807A9018D25D0A90A8D26D0AD00DC290F8D4003CE
49760 DATA 4603AD4603C900D012A9008D04D4AD4803850220F2C0A9068D20D038A90FED40
49792 DATA 038D4003C900F0038D4D03AD3C03C901D006AD40038D4D03AD4D03C901D0034C
49824 DATA BAC2C902D0034CE1C2C904D0034C08C3C908F0034C53C34C2FC3ADCC058D4103
49856 DATA CD4303D008A9028D4D034C53C338AD4403E9788D4403AD4503E9008D45034C53
49888 DATA C3AD1C068D4103CD4303D008A9018D4D034C53C318AD440369788D4403AD4503
49920 DATA 69008D45034C53C3ADF3058D4103CD4303D008A9088D4D034C53C338AD4403E9
49952 DATA 018D4403AD4503E9008D45034C53C3ADF5058D4103CD4303D008A9048D4D034C
49984 DATA 53C318AD440369018D4403AD450369008D4503A90085FDA90485FEA9008D4E03
50016 DATA 8D4703AD440385FBAD450385FCA000B1FB91FD18A5FB690185FBA5FC690085FC
50048 DATA 18A5FD690185FDA5FE690085FEEE4703AD4703C928D012A9008D470318A5FB69
50080 DATA 5085FBA5FC690085FCE8D0C3EE4E03AD4E03C904D0034CC2C3C903D0B2A2684C
50112 DATA 6FC3AD4103CD4303D026A90885028D20D020F2C0A9088D05D4A9818D04D4A919
50144 DATA 8D01D4A90A8D4903A9028D4603EE4F03AD4103C9A0D01EA90785028D20D020F2
50176 DATA C0A9018D4B03A90F8D05D4A9118D04D4A9058D4603AD4103C953D026A9008502
50208 DATA 20F2C0A90F8D05D4A9218D04D4A9048D4603A280A000EE21D0C8D0FAE8D0F720
50240 DATA 0DC2AD4903C900F017A90F8D2C05A9158D5405A9038D7C05A9088DA405CE4903
50272 DATA 18AD440369B485FBAD4503690585FCA92091FB8D4103AD4B03C901D049A9008D
50304 DATA 4B03A9008D4A0318ADC4076901C93AF0068DC4074CA1C4A9308DC407A9018D4A
50336 DATA 03A20218BDC1076D4A03C93AF00B9DC107A9008D4A034CC3C4A9309DC107A901
50368 DATA 8D4A03CAD0DDEE4C03AD4C03C900D003EE4F03AD4F03AAA9A09DC707CAD0F8AD
50400 DATA C207C932D0034CF3C4AD4F03C920D0484CF3C4A9008D04D48D15D0A90F8DF305
50432 DATA A9168DF405A9058DF505A9128DF605A9028502A9008D21D020F2C0A9018DF3D9
50464 DATA 8DF4D98DF5D98DF6D9A5C5C940D0FAA5C5C940F0FA4C08C04C57C250ZZ